home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok11 / r.o.m. / m2sources / preference.mod < prev    next >
Text File  |  1993-11-04  |  858b  |  34 lines
  1. IMPLEMENTATION MODULE Preference;
  2. (*
  3.   Created: 1987 by
  4.              Stefan Salewski
  5.              Stolper Weg 3
  6.              2160 Stade   West-Germany
  7.              Tel: 04141/61130
  8.              
  9.   Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
  10.    
  11.   This Module may be freely copied. But please
  12.   leave my name in. Thanks....Stefan  
  13. *)
  14.   FROM Intuition IMPORT PreferencesPtr,GetPrefs,topazEighty;
  15.   FROM Storage IMPORT ALLOCATE,DEALLOCATE;
  16.  
  17.   PROCEDURE CharSize(VAR width,height:INTEGER);
  18.     VAR
  19.     prefPtr:PreferencesPtr;
  20.   BEGIN
  21.     ALLOCATE(prefPtr,SIZE(prefPtr^));
  22.     GetPrefs(prefPtr,SIZE(prefPtr^));
  23.     IF prefPtr^.fontHeight= topazEighty THEN
  24.       width:=8;
  25.       height:=8
  26.     ELSE
  27.       width:=10;
  28.       height:=9;(*I hope this is correct *)
  29.     END;
  30.     DEALLOCATE(prefPtr,SIZE(prefPtr));
  31.   END CharSize;
  32. END Preference.mod
  33.  
  34.